home *** CD-ROM | disk | FTP | other *** search
- /* Box arexx test */
-
- options results
- parse ARG Port x1 y1 x2 y2 b
- ADDRESS value Port
-
- pp_GetDepth
- D=result
- IF D<24 then DO
- pp_Warn 'This*script*is*only|for*24bits*Picture.'
- pp_PermitRefresh
- Exit
- END
-
- type=0
- pp_DialogInit 150 60 "*PatchWork*" 1
- pp_Cycle 0 50 8 70 16 "Size" 1 "1|2|3|4" type
- pp_Dialog
- rc=result
- if rc=0 then
- do
- EXIT
- end
-
- pp_GetDialog 0
- type=result
-
- pp_GetPenType
- Type=result
-
- pp_ClosestColor 0 0 0
- Black=result
-
- pp_ComposeReqOff
- pp_EffectOn
- pp_Compose 0 100 0
- pp_AvoidRefresh
- pp_Progresstext 'PatchWork'
- pp_UpdateUndoBox x1-1 y1-1 x2+1 y2+1
-
- pp_Progress 1 4
- pp_RainbowMosaic (type*5)+10
- pp_BoxF x1 y1 x2 y2
-
- pp_Progress 2 4
- C=-1
- pp_ConvInit 0 1 0
- pp_Conv 0 0 0 0 0 0
- pp_Conv 1 0 0 C 0 0
- pp_Conv 2 0 C 5 C 0
- pp_Conv 3 0 0 C 0 0
- pp_Conv 4 0 0 0 0 0
- pp_BoxF x1 y1 x2 y2
-
- pp_Progress 3 4
- C=-3
- C2=-1
- pp_ConvInit 1 1 0
- pp_Conv 0 0 0 1 0 0
- pp_Conv 1 0 0 3 0 0
- pp_Conv 2 1 3 1 C C2
- pp_Conv 3 0 0 C 0 0
- pp_Conv 4 0 0 C2 0 0
- pp_BoxF x1 y1 x2 y2
-
- pp_EffectOff
- pp_SetApen Black
- pp_PenType 0
- pp_box x1 y1 x2 y2
- pp_box x1+1 y1+1 x2-1 y2-1
- pp_PenType Type
- pp_ComposeReqOn
- pp_PermitRefresh
- pp_ProgressClr
-
-
- Exit
-